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DIRECTORY 

AltoDefs: FROM "altodefs" USTNG [PageCount, PageNumber] , 

ControlDefs: FROM "control defs" USING [FrameHandle, GlobalFrameHandle] , 

DebugContextDefs: FROM "debugcontextdef s" USING [ 

Inval idGlobal Frame , Symbol Seg For Frame] , 
DebugData: FROM "debugdata" USING [level], 
DebuggerDefs: FROM "debuggerdefs" USING [ClobberedFrame] , 
DebugSymbolDeFs: FROM "debugsymboldef s" , 
DebugUtilityDefs: FROM "debugut il itydef s" USING [ 

CheckFrame, FindSymbolTable , Inval idateFileCache, MREAD, 

Val idGlobalFrame], 
SegmentDefs: FROM "segmentdef s" USING [ 

DeleteFileSegment , FileError, FileHandle, FileSegmentHandle, InvalidFP, 

NewFileSegment, PageCount, PageNumber, Read, SwapError], 
StringDefs: FROM "stringdefs" USING [AppendStr ing] , 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

AcquireSymbolTable , IllegalSymbolBase , NoSymbolTable, ReleaseSymbolTable, 

SegmentForTable, SetSymbolCacheSize, SymbolCacheSize, SymbolTableBase, 

Symbol Tab! eH and! e, Tab! eFor Segment] , 
SystemDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode] ; 

DEFINITIONS FROM DebugUtilityDefs; 

DebugSymbol s: PROGRAM 

IMPORTS DDptr: DebugData, DebugContextDefs, DebugUtilityDefs, SegmentDefs, 

DebuggerDefs, StringDefs, SymbolTableDefs, SystemDefs 
EXPORTS DebugSymbolDefs ■ 

BEGIN 

FrameHandle: TYPE = ControlDefs . FrameHandle; 
GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandl e; 
FileSegmentHandle: TYPE = SegmentDefs .FileSegmentHandle; 
FileHandle: TYPE = Segmen tDefs . FileHandle; 

SymbolTableHandle: TYPE = SymbolTabl eDef s .SymbolTableHandle; 
SymbolTableBase: TYPE = SymbolTableDefs .SymbolTableBase; 

DCacheList: POINTER TO DCacheltem ♦- NIL; 

DCacheltem: TYPE = RECORD [ 
next: POINTER TO DCacheltem, 
handle: SymbolTableHandle, 
stbase: SymbolTableBase, 
count: CARDINAL, 
level: INTEGER]; 

DAcquireSymbolTable: PUBLIC PROCEDURE [h: SymbolTableHandle] RETURNS [b: SymbolTableBase] 
BEGIN OPEN SegmentDefs; 
dl: POINTER TO DCacheltem; 

FOR dl <- DCacheList, dl.next UNTIL dl = NIL DO 

IF h = dl. handle AND dl. level « DDptr. level THEN 

BEGIN dl. count <~ dl. count + 1; RETURN[dl .stbase] ; END; 

ENDLOOP; 
b ♦- SymbolTableDefs .AcquireSymbolTable[h ! 

SwapError, FileError, InvalidFP «> 

ERROR Symbol Tab! eDef s.NoSymbo!Table[NIL]]; 
dl <- SystemDefs. Al locateHeapNode[SIZE[DCacheItem]] ; 
dlt 4- DCacheItem[ 

next: DCacheList, level: DDptr. level, handle: h, stbase: b, count: 1]; 
DCacheList <- dl ; 
RETURN 
END; 

DReleaseSymbol Table: PUBLIC PROCEDURE [b: SymbolTableBase] - 
BEGIN 

pdl, dl: POINTER TO DCacheltem; 
pdl f- *NIL; 
dl «- DCacheList; 
FOR dl <- DCacheList, dl.next UNTIL dl - NIL DO 
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IF dl.stbase - b AND dl . level = DDptr. level THEN 
BEGIN 

IF (dl. count <- dl. count - 1) » THEN 
BEGIN 

IF pdl - NIL THEN DCacheList <- dl.next ELSE pdl. next «- dl.next; 
Symbol Tab! eDefs . ReleaseSymbol Fab1e[dl .stbase]; 
SystemDef s. FreeHeapNode[dl ] ; 
END; 
RETURN 
END 
ELSE pdl <- dl; 
ENDLOOP; 
RETURN 
END; 

HandleForBase: PUBLIC PROCEDURE [b: SymbolTableBase] RETURNS [SymbolTableHandle] 
BEGIN 

dl: POINTER TO DCacheltem; 
FOR dl «- DCacheList, dl.next UNTIL dl - NIL DO 

IF dl.stbase ■ b THEN RETURN [dl. handle]; 

ENDLOOP; 
ERROR 
END; 

CheckDCache: PUBLIC PROCEDURE - 
BEGIN 

dl: POINTER TO DCacheltem ♦- DCacheList; 
ndl: POINTER TO DCacheltem; 
FOR dl <- DCacheList, ndl UNTIL dl ■ NIL DO 
ndl *- dl .next; 

IF dl. level >= DDptr. level THEN 
BEGIN 

dl. count «- 1; -- force entry to be released 
DReleaseSymbolTable[dl .stbase 1 

SymbolTableDefs.IllegalSymbolBase => CONTINUE]; 
END; 
ENDLOOP; 
RETURN 
END; 

TableForString: PUBLIC PROCEDURE [name: STRING] RETURNS [SymbolTableHandle] » 
BEGIN OPEN SegmentDefs; 
i: CARDINAL; 
file: FileHandle; 
base: PageNumber; 
pages: PageCount; 
symseg: FileSegmentHandle; 
FOR i IN [0. .name. length) DO 

IF name[i] * ' . THEN EXIT; 

REPEAT FINISHED «> StringDef s . AppendStr ing[name , ".bed"]; 

ENDLOOP; 
[file, base, pages] *- FindSymbolTable[name]; 
symseg +■ NewSymbolSegment[f ile, base, pages]; 
RETURN[LOOPHOLE[symseg]] 
END; 

DSymbolItem: TYPE = RECORD [ 
next: POINTER TO DSymbolItem, 
frame: Global FrameHandle, 
table: FileSegmentHandle]; 

DSymbols: POINTER TO DSymbolItem 4- NIL; 

SymbolsForFrame: PUBLIC PROCEDURE [frame: FrameHandle] 
RETURNS [SymbolTableHandle] ■ 
BEGIN 

IF ~DebugUtilityDefs.CheckFrame[frame] THEN 
ERROR DebuggerDef s .ClobberedFrame[f rame] ; 
RE rURN[SymbolsForGFrame[MREAD[0frame. access link]]] 
END; 

SymbolsForGFrame: PUBLIC PROCEDURE [gframe: GlobalFrameHandle] 
RETURNS [SymbolTableHandle] - 
BEGIN OPEN SymbolTableDefs; 
seg: FileSegmentHandle; 
syms: POINTER TO DSymbolItem; 



DebugSymbols.mesa 2-Sep-78 15:32:14 Page 



IF ~DebugUtilityDefs.ValidGlobalFrame[gframe] THEN 

ERROR DebugContextDef s.Inval idGlobal Frame[g Frame]; 
FOR syms «- DSymbols, syms.next UNTIL syms a NIL DO 

IF gframe ■ syms. frame THEN REl"URN[TableForSegment[syms .table]] ; 

ENDLOOP; 
seg 4- DebugContextDefs.SymbolSegForFrame[gf rame]; 
syms <- SystemDefs.AllocateHeapNode[SIZE[DSymbolItem]]; 
symst <- DSymbo1Item[next: DSymbols, frame: gframe, table: seg]; 
DSymbols <- syms; 

RETURN[TableForSegment[ syms. table]] 
END; 

DCheckSymbol Items: PUBLIC PROCEDURE ■ 
BEGIN 

syms: POINTER TO DSymbolItem; 
FOR syms <- DSymbols, DSymbols UNTIL syms ■ NIL DO 

DSymbols *- syms.next; 

IF syms. table # NIL THEN 

SegmentDefs.DeleteFileSegment[syms. table ! ANY ■> CONTINUE]; 

SystemDef s . FreeHeapNode[syms]; 

ENDLOOP; 
END; 

DCleanSymbol Items: PUBLIC PROCEDURE » 
BEGIN 

syms, prev, next: POINTER TO DSymbolItem; 
prev «- NIL; 

FOR syms <- DSymbols, next UNTIL syms * NIL DO 
next <- syms.next; 
IF syms. table - NIL THEN 
BEGIN 

IF prev = NIL THEN DSymbols <- next ELSE prev. next <- next; 
SystemDef s.FreeHeapNode [syms]; 
END 
ELSE prev <- syms; 
ENDLOOP; 
END; 

AttachSymbols: PUBLIC PROCEDURE [frame: GlobalFrameHandle, file: STRING] * 
BEGIN OPEN SymbolTableDefs; 
syms: POINTER TO DSymbolItem; 
table: SymbolTableHandle; 
table <- TableForString[f ile]; 

FOR syms <- DSymbols, syms.next UNTIL syms = NIL DO 
IF frame e syms. frame THEN 

BEGIN 

syms. table <- SegmentForTable[table]; 

RETURN 

END; 
ENDLOOP; 
syms «- SystemDef s . AllocateHeapNode[SIZE[DSymbol Item]]; 

symst <- DSymbol Item[next : DSymbols, frame: frame, table: SegmentForTabl e[table]] ; 
DSymbols <- syms; 

DebugUtil ityDef s. InvalidateFileCache[]; 
RETURN 
END; 

-- Lists of user symbol table segments 

SymbolListltem: TYPE ■ RECORD [ 
link: POINTER TO SymbolListltem, 
segment: FileSegmentHandle] ; 

UserSymbolList: POINTER TO SymbolListltem 4- NIL; 

AddToUserSymbolList: PROCEDURE [seg: FileSegmentHandle] ■ 
BEGIN 
item: POINTER TO SymbolListltem - 

SystemDef s . Al 1 oca teHeapNode[ SIZE [Symbol Li stl tern]] ; 
item. segment <- seg; 
item, link «- UserSymbolList; 
UserSymbolList «- item; 
END; 

EnumerateUserSymbolList: PROCEDURE [ 

proc: PROCEDURE [FileSegmentHandle] RETURNS [BOOLEAN]] 
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RETURNS [FileSegmentHandle] - 

BEGIN 

item: POINTER TO SymbolListltem; 

FOR item <- UserSymbolList, item. link UNTIL item « NIL DO 

IF proc[item. segment] THEN RETURN[i tern. segment] ; 

ENDLOOP; 
RETURN[NIL]; 
END; 

NewSymbolSegment: PROCEDURE [ 

file: FileHandle, base: Al toDefs .PageNumber, pages: Al toDef s.PageCount] 

RETURNS [s: FileSegmentHandle] ■ 

BEGIN 

FindSegment: PROCEDURE [test: FileSegmentHandle] RETURNS [BOOLEAN] - 

BEGIN 

RETURN [test. file ■ file AND test. base B base AND test. pages ■ pages] 

END; 
IF (s <- EnumerateUserSymbolList[FindSegment]) ■ NIL THEN 

BEGIN 

s <- SegmentDef s .NewFileSegment[f ile , base, pages, SegmentDef s .Read] ; 

s. class «- other; 

Ad d ToUs er Symbol Li st[s]; 

END; 
RETURN 
END; 

PurgeUserSymbols: PUBLIC PROCEDURE RETURNS [did: BOOLEAN] - 
BEGIN 

this, prev: POINTER TO SymbolListltem; 
cachesize: INTEGER <- SymbolTableDef s .SymbolCacheSize[] ; 

Symbol Tab leDefs.SetSymbol Caches ize[0]; 

SymbolTableDef s.SetSymbol Caches ize[ cachesize]; 

did <- FALSE; 

prev <- NIL; this <- UserSymbolList; 

UNTIL this=NIL DO 

IF this .segment. swappedin THEN 

BEGIN 

prev <- this; 

this <- this. 1 ink; 

END 
ELSE 

BEGIN 

IF prev=NIL THEN UserSymbolList <- this. link 

ELSE prev. link <- this. link; 

SegmentDef s.Del eteFileSegment[this. segment 
1 SegmentDefs.InvalidFP => CONTINUE]; 

did 4- TRUE; 

SystemDef s . FreeHeapNode[this] ; 

IF prev-NIL THEN this «- UserSymbolList 

ELSE this <- prev. 1 ink; 

END; 
ENDLOOP; 
RETURN 
END; 

END... 



